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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD IIIIII 000000 

FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD IIIIII 000000 

FF 00 OO RR RR RR RR EE AA AA 0D D I] 00 00 

FF 00 OO RR RR_ RR RR EE Ab AA DD DD I] 00 00 

FF 00 O00 RR RR RR RR EE Ab AA DD DD II 00 00 

FF 00 OO RR RR RR RR EE AA AA DD DD I] 00 00 

FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE wa AA 0D DD II 00 00 

FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD I] 00 00 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD DD I] 00 00 

FF 00 OO RR RR RR RR EE AAAAAAAAAA DD DD II 00 00 

FF 00 00 RR RR RR RR EE os AA DD DD II 00 00 cece 
FF 00 00 RR RR RR RR EE AA AA 0D DD I] 0G 00 eves 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD III! 000000 cece 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD HII! 000000 eves 
LL III] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL IIIT] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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This puts the correct mask in entry vector, that is FORSSIO_BEG entry mask. 
Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$IO_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


: MODIFIED BY: 
aa Hastings, 29-July-78 


FORRTL. SRCIFORREADIO. MAR; 1 (1) 
00 1 -TITLE FORSR AD. 10 = entry point for FORTRAN READ iereoat OBJECT-FORMATTED 
38 . “IDENT /1-012/ Files FO FO Fee EADIO. MAR Edit: wi012 
448 gi  rnmnemeeeeeennnnnnneenenenrennnneeee 
*® 
0000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0000 t* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
44 8 :* ALL RIGHTS RESERVED. * 
PY ® 
0000 10 ;* THIS SOFTWARE IS pyeni ce une A LICENSE AND MAY BE USED AND copier * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
44 \¢ 3* INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4044 12 :* TRANSFERRED. « 
. ® 
0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4464 i 3* CORPORATION. * 
$2 . 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + te OF ITS * 
0000 $$ ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
0000 23 ;* * 
0000 24 3t * 
i464 $2 SRR ARERR EEE E AAA TA EAE AAAAARE AAA eee eee eee ee 
0000 27: 
00 28 ;++ 
Be $3: 3; FACILITY: FORTRAN Support Library - user callable 
99 3): : ABSTRACT: 
00 33 This module contains the entr P90"s for the FORTRAN 
00 34; READ INTERNAL OBJECT-F FORMATTED /0 pretovent. It is simply 
00 35; a call to FOR$$I0 BEG with bits in RO which describe the 
83 38 : : parameter List. FORS$$IO_BEG interprets the parameters. 
00 38 MAINTENANCE NOTE: 
ip 3 The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
41: . TRANSFER FORSREAD_10 
ag : . MASK OR$$10_ BEG 
a ; BRW FORSREAD_10+2 
45 
46 : 
47 : 
48 ; 
49 ‘ 
50 : 
3): 
28 
54 : 


we 
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1-012 HISTOR ; Detailed Current Edit History 6=-SEP-1984 10:59:11 FORRTL.SRCJFORREADIO.MAR; 1 (2) 

4 3? -SBTTL HISTORY ; Detailed Current Edit History 

000 8 : 

44 23 ; Edit History for Version 1 
$600 ei 3 §-18 = Add comment about vectors. TNH 23-June-78 
0000 6¢ ; O-12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
0000 63 ; 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
a4 64 ; 1-006 - Change statement type symbols to be LUBSK... JBS 07-DEC-78 

000 65 ; 1-005 - Change statement type symbols to be ISBSK... JBS 11-DEC-78 
0000 66 ; 1-006 -A "to the PSECT directive. JBS 22-DEC-7 
0000 67 ; 1-005 = Add FORSREAD_KF FORSREAD_KO, FORSREWRITE_SF, FORSREWRITE_SO, 
0000 68; FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
0000 69: FORSREAD-KU, FORSREWRITE.SU, 

0000 70; SBL 2-May-1979 , 
0000 71 ; 1*006 = Remove alt entry petote that need object time formatting, 

0000 72 ; pet be them in FORSENTRY_OBJ so that we can arrange to 

0000 73 ; oad the format compiler only when it is needed. 

0000 74; JBS 26-JUN-1979 : 
0000 75 ; 1-007 - Remove entry porot FORSENCODE_MF; we will code a new module 

0000 76 ; for it and FOR$$i0_BEG, to see how much I/0 initiation time 

0000 77; improves. JBS 02-JUL-1979 
0000 78 ; 1-008 - Do likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
0000 79 ; 1-009 - Remove all entry points and add FORSREAD_TO; each entry 
0000 80 ; point gets its own module do we can selectively load 
0000 81 ; the necessary UDF and REC modules. JBS 09-JUL-1979 
0000 82 ; 1-010 - Correct a typo that caused a data truncation error. JBS 10-JUL-1979 
0000 83 ; 1-011 - New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 
0000 84 ; 1-012 - Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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-SBTTL DECLARATIONS 


; INCLUDE FILES: 


SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


: EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG : common I/0 statement processing 


3* 

; The pg references are to make sure the necessary UDF and REC 
: modules are loaded. These are the routines which are called through 
; the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 
TEXTRN FORSSREC-RIFO, FORSSREC_RIF1, FORSSREC_RIF9 


5% 
; The following reference makes sure the format compiler is loaded. 
~-EXTRN FORSSFMT_COMPIL 


MACROS: 
NONE 
PSECT DECLARATIONS: 


0000 ~PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


: EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


SSsss 
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p++ 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/O system to perform 
a@ READ INTERNAL OBJECT-FORMATTED I/0 statement. 


CALLING SEQUENCE: 


CALL FORSREAD_IO (user_ybl.rt.dx, format_adr.rt.r 
» err_adr.j.r t. end_adr.j.rJJ) 


INPUT PARAMETERS: 


user_vbl.rt.dx User's string variable : 
format_adr.rt.r format string (needs compilation) 
Cerr_adr.j.r] optional ERR= address 
Cend_adr.j.rJ optional END= address 


IMPLICIT INPUTS: 

NONE except those used by FORS$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORS$$I0_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$I0_BEG. 


Be Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge Se Ge Ge Be Be Ge Se Se Se Se Ge Se Se Se Se Ge Se Ge Ge Be Be Be 


0000° FORSREAD ah -MASK FORS$S$IO_ BEG 


ce ed ae ee ee ce ee ce ae ee ce ce a el a cel cc ce ee ee ce ce ce ee ce ce co i ce ce ee ec ce ee cee ee ec ee el ee ee ee ed ee el 
290900 INI NNN ID DO OS ODS DODD TTT BS BS BB BE BE EAA 


0 
50 0112 8F 3C 00 MOVZWL #ISBSK_ST_TY_RIF+ - 
0 <1aFORSV_OBJ"FMT>, RO ; Statement type 
00000002'GF 17 $ JMP G*FORS$IO_BEG+2 3 branch past call mask 
0 
0 ~END 
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FORSSFMT COMPIL eeereree X 00 
FORS$10 BEG eeeeeere Xo 0 
ORSSREC_RIFO eeeeeeee =X 
ORSSREC_RIF1 eeereere =X 
FORSSREC_RIF9 eteeeeee =X 0 
SSUDF _RFO eeeeeeee y 99 
FORSSUDF RF 1 eereereer X 0) 
SUDF _RF9 eeeerere x 00 
FORSREAD 10 00000000 RG 01 
FORSV_OBJ_FMT = 0000000 
ISBSK_ST_TY_RIF = 0000001 
dower coer ese onoaen Sa 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
s SS . 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
_FORSCODE 00000000 ¢ 13.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD 
dati etnaatael 
: Performance indicators ! 
Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.10 00:00:00.91 
Command processing 119 00:00:00.59 00:00:02.83 
Pass 1 124 00:00:01.28 00:00:04.88 
Symbol table sort 0 00:00:00.18 00:00:00.61 
Pass 47 00:00:00.48 00:00:01.56 
Symbol table output 3 00:00:00.01 00:00:00.20 
Psect synopsis output 2 00:00:00.02 00:00:00.05 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 327 00:00:02.67 00:00:11.04 
The working set Limit was 1050 pages. 


6711 bytes (14 pages) of virtual memory were used to buffer the intermediate code 
There were 20 pages of symbol table space allocated to hold 188 non-local and 0 | 
182 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


ocal symbols. 


+ 


Macro library statistics ! 
+ 


: 
+ 


Macros defined 


_$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 2 
$255$DUA28:CSYSLIBIJSTARLET.MLB;2 0 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 


v04-00 P 
RREADIO.MAR; 1 


NOWRT NOVEC BYTE 
NOWRT NOVEC LONG 
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MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADIO/OBJ=0BJ$:F ORREADIO MSRC$:FORREADIO/UPDATE=(ENH$:FORREADIO) +LI 
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